򼯺еÿԪظִһ䡣

For Each element In group
[statements]
[Exit For]
[statements]
Next [element]

element 
öټϻԪصıڼϣelement  Variant ͨ Object ָ Automation 飬element ֻ Variant  
group 
󼯺ϻơ 
statements 
 group еÿһִеһ䡣 
˵
 group һԪأͻ For Each ִСһѭȶ group еһԪִѭе䡣ֻҪ group лԪأͻÿԪִѭе䡣 group еûԪʱ˳ѭȻ Next ִ֮С

Exit For ֻ For Each...Next  For...Next ƽṹУṩһ˳ѭķѭλ÷ Exit For 䡣Exit For жһʹã If...ThenȨתƵ Next ֮䡣

Խһ For Each...Next ѭһ֮УǶʽ For Each...Next ѭÿѭ element Ψһġ

ע   ʡ Next е elementԻѰһִС Next Ӧ For ֮ǰ֣
Ӿ˵ʹ For Each...Next : 

Function ShowFolderList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name 
      s = s & "<BR>"
   Next
  ShowFolderList = s
End Function
Ҫ
汾 2
